home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / SIOD / String.scm < prev    next >
Text File  |  1993-07-09  |  483b  |  25 lines
  1. (define (string<? x y)
  2.         (< (string-cmp x y) 0))        
  3.  
  4. (define (string>? x y)
  5.         (> (string-cmp x y) 0))
  6.  
  7. (define (string=? x y)
  8.         (= (string-cmp x y) 0))
  9.  
  10. (define (string<=? x y)
  11.         (<= (string-cmp x y) 0))
  12.  
  13. (define (string>=? x y)
  14.         (>= (string-cmp x y) 0))
  15.  
  16. (define (string-CI<? x y)
  17.         (< (string-cmp-CI x y) 0))        
  18.  
  19. (define (string-CI=? x y)
  20.         (= (string-cmp-CI x y) 0))
  21.  
  22. (define (string-null? x)
  23.         (= (string-cmp x "") 0))
  24.  
  25.